home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / MAILED.PRG < prev    next >
Text File  |  1985-12-21  |  5KB  |  171 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. * MAILED.PRG - PROGRAM FOR EDITING MAILIST FILES
  7. * COPYRIGHT NOVEMBER 14, 1983 BY PHILIP K. PERLMAN
  8. SET TALK OFF
  9. *POKE 1047,10
  10. STORE .T. TO ED
  11. DO WHILE ED
  12.   STORE .T. TO DULY
  13.   DO WHILE DULY
  14.     CLEAR
  15.     USE MAIL
  16.     ? "YOU CAN LOCATE THE FILE BY THE INDIVIDUAL'S NAME OR COMPANY NAME"
  17.     ?
  18.     ?
  19.     ?
  20.     *!! There will be no automatic colon following this prompt string.
  21.     ACCEPT "ENTER LAST NAME : " TO NAME
  22.     ?
  23.     ?
  24.     ?
  25.     *!! There will be no automatic colon following this prompt string.
  26.     ACCEPT "ENTER FIRST NAME : " TO NAME1
  27.     ?
  28.     ?
  29.     ?
  30.     *!! There will be no automatic colon following this prompt string.
  31.     ACCEPT "ENTER COMPANY NAME : " TO COMP
  32.     STORE UPPER(NAME) TO NAME
  33.     STORE UPPER(NAME1) TO NAME1
  34.     STORE UPPER(COMP) TO COMP
  35.     IF LEN(COMP)=0 .AND. LEN(NAME) <> 0
  36.       USE MAIL INDEX LAST
  37.       *!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
  38.       FIND &NAME
  39.       IF .NOT. (EOF()) 
  40.         * .OR. BOF())
  41.         STORE 1 TO REC
  42.         STORE .F. TO DULY
  43.       ELSE
  44.         STORE 0 TO REC
  45.         STORE .F. TO DULY
  46.       ENDIF
  47.       DO WHILE LAST = NAME .AND. NAME1 <> ' ' .AND. UPPER(FIRST) <> NAME1
  48.         SKIP
  49.       ENDDO
  50.     ELSE
  51.       IF LEN(NAME) = 0 .AND. LEN(COMP) <> 0
  52.         USE MAIL INDEX COMP
  53.         *!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
  54.         FIND &COMP
  55.         IF .NOT. (EOF() )
  56.           *.OR. BOF())
  57.           STORE 1 TO REC
  58.           STORE .F. TO DULY
  59.         ELSE
  60.           STORE 0 TO REC
  61.           STORE .F. TO DULY
  62.         ENDIF
  63.       ENDIF
  64.     ENDIF
  65.   ENDDO
  66.   IF REC = 0
  67.     CLEAR
  68.     STORE ' ' TO ANS3
  69.     @ 10,5 SAY "Record Cannot Be Found."
  70.     @ 12,5 say "Press 'N' to Return to the Menu"
  71.     @ 14,5 SAY "Press Any Other Key to Try Again."
  72.     @ 14,70 get ANS3
  73.     READ 
  74.     CLEAR GETS
  75.     IF UPPER(ANS3) = 'N'
  76.       STORE .F. TO ED
  77.       STORE .F. TO DULY
  78.       RETURN
  79.     ELSE
  80.       STORE .T. TO DULY
  81.       STORE ' ' TO ANS
  82.     ENDIF
  83.   ENDIF
  84.   do while REC = 1
  85.     STORE ' ' TO ANS
  86.     CLEAR
  87.     @ 1,1 SAY 'Company' get company
  88.     @ 3,1 say 'Name'
  89.     @ 3,5 get LAST
  90.     @ 3,27 GET FIRST
  91.     @ 4,1 GET ADDR1
  92.     @ 4,40 SAY 'Office Tel.' GET TEL_WRK
  93.     @ 5,1 GET ADDR2
  94.     @ 5,40 SAY 'Home Tel.' GET TEL_HM
  95.     @ 6,1 GET CITY
  96.     @ 6,27 GET STATE
  97.     @ 6,31 GET ZIP
  98.     @ 8,1 SAY 'Birthday' GET BIRTHDAY
  99.     @ 8,20 SAY 'Friend' get friend
  100.     @ 8,30 say 'Business' get bus_xmas
  101.     @ 10,1 say 'Priority 1' get prof1
  102.     @ 11,1 say 'Priority 2' get prof2
  103.     @ 12,1 say 'Priority 3' get prof3
  104.     @ 14,1 say 'Comments'
  105.     @ 14,11 get mcom1
  106.     @ 15,11 get mcom2
  107.     ?
  108.     ? "+-------------------------------------------------------------------------+"
  109.     ? "| SELECT:  E> Edit this Record        D> Delete this Record               |"
  110.     ? "|          N> To Return to Menu       R> Review other Records             |"
  111.     ? "+-------------------------------------------------------------------------+"
  112.     ?
  113.     WAIT TO ANS
  114.     IF UPPER(ANS) <> 'E' .AND. UPPER(ANS) <> 'D' .AND. UPPER(ANS) <> 'N' .AND. UPPER(ANS) <> 'R'
  115.       CLEAR
  116.       LOOP
  117.     ELSE
  118.       IF UPPER(ANS) = 'E'
  119.         ? "PRESS CONTROL W '^W' OR THE ENTER KEY TO REACH THE BOTTOM OF PAGE AND "
  120.         ?                 "COMPLETE EDITING"
  121.         READ
  122.         STORE 0 TO REC
  123.       ELSE
  124.         IF UPPER(ANS) = 'D'
  125.           CLEAR
  126.           ? "ARE YOU SURE ABOUT THAT (Y OR N) ?"
  127.           ?
  128.           ?
  129.           ?
  130.           ?
  131.           WAIT TO SURE
  132.           IF UPPER(SURE) = 'Y'
  133.             DELETE
  134.             PACK
  135.             STORE 0 TO REC
  136.           ELSE
  137.             STORE 0 TO REC
  138.           ENDIF
  139.         ELSE
  140.           IF UPPER(ANS) = 'N'
  141.             STORE 0 TO REC
  142.             STORE .F. TO ED
  143.             CLEAR
  144.             RETURN
  145.           ELSE
  146.             IF UPPER(ANS) = 'R'
  147.               STORE 0 TO REC
  148.             ENDIF
  149.           ENDIF
  150.         ENDIF
  151.       ENDIF
  152.     ENDDO
  153.     CLEAR
  154.     IF UPPER(ANS) = 'D' .OR. UPPER(ANS) = 'E'
  155.       store ' ' to ans1
  156.       @ 10,5 SAY "Press 'N' to Return to The Menu"
  157.       @ 12,5 Say "Press Any Other Key To Continue Editing"
  158.       @ 12,60 get ans1
  159.       read
  160.       clear gets
  161.       if UPPER(ans1) = 'N'
  162.         store .f. to ed
  163.         CLEAR
  164.         return
  165.       else
  166.         CLEAR
  167.       ENDIF
  168.     endif
  169.   ENDDO
  170.   
  171.